home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / server_status.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  21.8 KB  |  569 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <%' option explicit %>
  3. <!--#include file="include/wmsConstants.inc"-->
  4. <!--#include file="include/wmsLocStrings.inc"-->
  5. <!--#include file="include/wmsCommon.inc"-->
  6. <!--#include file="include/wmsServerHash.inc"-->
  7. <!--#include file="include/wmsconnect.inc"-->
  8. <!--#include file="include/wmsRefresh.inc"-->
  9. <!--#include file="include/wmsHeader.inc"-->
  10. <!--#include file="include/wmsToolbar.inc"-->
  11. <!--#include file="include/wmsError.inc"-->
  12. <!--#include file="include/wmsHelp.inc"-->
  13. <!--#include file="include/wmsPageBanner.inc"-->
  14. <!--#include file="include/wmsTabs.inc"-->
  15. <%
  16. '+-------------------------------------------------------------------------
  17. '
  18. '  Microsoft Windows Media
  19. '  Copyright (C) Microsoft Corporation. All rights reserved.
  20. '
  21. '  File:       Server_Status.asp
  22. '
  23. '  Contents:
  24. '
  25. '--------------------------------------------------------------------------
  26.  
  27. ConnectToServer
  28. BeginErrorHandling
  29.  
  30. Dim bAllowingConnections
  31. Dim bDriveUpdateToTreeView
  32. Dim strSinceCounter
  33. Dim limStreamingPlayers
  34. Dim limPlayerBandwidth
  35. Dim dwLastToolbarIndex
  36.  
  37. on error resume next
  38.  
  39. bAllowingConnections = g_objServer.AllowClientsToConnect
  40.  
  41. bDriveUpdateToTreeView = FALSE
  42. if ( 0 = strcomp( "true", qs("updateTree"), vbTextCompare ) ) then
  43.     bDriveUpdateToTreeView = TRUE
  44. end if
  45.  
  46. if trim( qs("op") ) <> "" then
  47.     Select Case trim( qs("op") )
  48.         case "Allow"
  49.             g_objServer.AllowClientsToConnect = 1
  50.             bAllowingConnections = TRUE
  51.             bDriveUpdateToTreeView = TRUE
  52.         case "Deny"
  53.             g_objServer.AllowClientsToConnect = 0
  54.             bAllowingConnections = FALSE
  55.             bDriveUpdateToTreeView = TRUE
  56.         case "resetctrs"
  57.             g_objServer.PeakCounters.Reset()
  58.             g_objServer.TotalCounters.Reset()
  59.         case Else
  60.             if g_bDebugMode then
  61.                 STOP
  62.             end if
  63.     End Select
  64.     
  65.     if( bDriveUpdateToTreeView ) then
  66.         Response.Redirect( "server_status.asp?server=" & g_strQueryStringServer & "&updateTree=true" )
  67.     else
  68.         Response.Redirect( "server_status.asp?server=" & g_strQueryStringServer )
  69.     end if
  70. end if
  71.  
  72.  
  73. '////////////////////////////////////////////////////////////////
  74. Function LabelValue( strValue, strLabel )
  75.     Dim strTemplate
  76.     strTemplate = strLabel
  77.     LabelValue = Server.HTMLEncode( Replace( strTemplate, "___", trim( CStr( strValue ) ), 1 ) )
  78. End Function
  79.  
  80.  
  81. WriteHTMLHeader( g_strDecodedServerName )
  82. WriteRefreshMetaTag
  83. %><link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  84. <script language="JavaScript" src="include/WMSCommon.js"></script>
  85. <script language="JavaScript">
  86. <!--
  87. /*@cc_on @*/
  88. <% WriteCommonJSUtils %>
  89.  
  90. ///////////////////////////////////////////////////////////////////////
  91. function PrintLocalizedTimestamp( dwUTCDate )
  92. {
  93.     var dateTimeUTC;
  94.     dateTimeUTC = new Date( dwUTCDate ); 
  95.     document.write( dateTimeUTC.toLocaleString() );
  96. }
  97.  
  98. //////////////////////////////////////////////////////////////////////////
  99. function UTCToLocal( dwUTCDate )
  100. {
  101.     <% jsTRY %>
  102.         PrintLocalizedTimestamp( dwUTCDate );
  103.     <% jsCATCH %>
  104. }
  105.  
  106. ///////////////////////////////////////////////////////////////////////
  107. function ValidateStop()
  108. {
  109.     <% jsTRY %>
  110.     if( true == window.confirm( "<%= RemoveDangerousCharacters( L_CONFIRMSTOPSERVER_TEXT ) %>" ) )
  111.     {
  112.     <% if( brMSIE = g_dwBrowserType ) then %>
  113.         document.parentWindow.parent.parent.location = "/wmssecure/admin.asp?server=<%= g_strQueryStringServer %>&serverop=kill";
  114.     <% else %>
  115.         parent.document.location = "/wmssecure/admin.asp?server=<%= g_strQueryStringServer %>&serverop=kill";
  116.     <% end if %>
  117.     }
  118.     <% jsCATCH %>
  119. }
  120. -->
  121. </script>
  122. </head>
  123. <body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" <% if bDriveUpdateToTreeView then %>onLoad="UpdateTreeView();"<% end if %> oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  124. <%
  125. ' Draw the page banner with tabs
  126. DrawServerNameBanner L_MONITORTABTITLE_TEXT
  127. %>
  128. <table bgcolor="#FFFFFF" width="100%" cellspacing="0" cellpadding="0" border="0">
  129. <tr valign="bottom" height="24">
  130.     <td>
  131.          
  132.     </td>
  133.     <td>
  134.         <p> <br>
  135.         <img src="img\general_16.gif" height="16" width="16" valign="middle">
  136.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_GENERAL_TEXT ) %></span><%' ------------------------------ %>
  137.     </td>
  138. </tr>
  139. <tr valign=top>
  140.     <td>
  141.          
  142.     </td>
  143.     <td>
  144.         <table width="90%" cols="1" cellspacing="0" cellpadding="0" border="1">
  145.         <tr>
  146.             <td>
  147.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  148.                 <tr>
  149.                     <td> </td>
  150.                     <td>
  151.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  152.                         <tr>
  153.                             <td align="left" nowrap>
  154.                                 <span class="smcounter"><%= Server.HTMLEncode( L_LASTCTRRESET_TEXT ) %></span>
  155.                             </td>
  156.                             <td align="right" width="100%" colspan=2>
  157.                                 <span class="smcounter"><%
  158.                                 strSinceCounter = g_objServer.PeakCounters.CountersStartTime %>
  159.                                     <script language="JavaScript">
  160.                                         UTCToLocal( "<%= FormatDateAsUTC( strSinceCounter ) %>" );
  161.                                     </script> 
  162.                                 </span>
  163.                             </td>
  164.                         </tr>
  165.                         <tr>
  166.                             <td height="4">
  167.                             </td>
  168.                             <td height="4">
  169.                             </td>
  170.                         </tr>
  171.                         <tr>
  172.                             <td align="left" nowrap>
  173.                                 <span class="smcounter">
  174.                                     <%= Server.HTMLEncode( L_CPUCOLON_TEXT ) %>
  175.                                 </span>
  176.                             </td>
  177.                             <td nowrap align="right" width="100%">
  178.                                 <span class="smcounter">
  179.                                     <%= LabelValue( g_objServer.CPUUtilization, L_PERCENT_TEXT ) %> 
  180.                                 </span>
  181.                             </td>
  182.                         </tr>
  183.                         <tr>
  184.                             <td height="4">
  185.                             </td>
  186.                             <td height="4">
  187.                             </td>
  188.                         </tr>
  189.                         </table>
  190.                     </td>
  191.                 </tr>
  192.                 </table>
  193.             </td>
  194.         </tr>        
  195.         </table>
  196.     </td>
  197. </tr>
  198. <tr valign="bottom" height="24">
  199.     <td>
  200.          
  201.     </td>
  202.     <td>
  203.         <p> <br>
  204.         <img src="img\mediaplayer_16.gif" height="16" width="16" valign="middle">
  205.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_CLIENTS_TEXT ) %></span>
  206.     </td>
  207. </tr>
  208. <tr valign=top>
  209.     <td>
  210.          
  211.     </td>
  212.     <td>
  213.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  214.         <tr>
  215.             <td>
  216.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  217.                 <tr>
  218.                     <td> </td>
  219.                     <td>
  220.                         <table width="100%" cols="3" cellspacing="0" cellpadding="0" border="0">
  221.                         <tr>
  222.                             <td align="left" nowrap>
  223.                                 <span class="smcounter"><%= Server.HTMLEncode( L_CURLIMIT_TEXT ) %></span>
  224.                             </td>
  225.                             <td nowrap align="right" width="100%">
  226.                                 <span nowrap class="smcounter">
  227.                                 <%
  228.                                 limStreamingPlayers = g_objServer.Limits.ConnectedPlayers
  229.                                 if( limStreamingPlayers < 0 ) then
  230.                                   Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  231.                                 else
  232.                                   Response.Write( LabelValue( limStreamingPlayers, L_PLAYERSLABEL_TEXT ) )
  233.                                 end if
  234.                                 %> 
  235.                                 </span>
  236.                             </td>
  237.                         </tr>
  238.                         <tr>
  239.                             <td height="4">
  240.                             </td>
  241.                             <td height="4">
  242.                             </td>
  243.                         </tr>
  244.                         <tr>
  245.                             <td align="left" nowrap>
  246.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_PERCENTLIM_TEXT ) %></span>
  247.                             </td>
  248.                             <td align="right" width="100%">
  249.                                 <span nowrap class="smcounter">
  250.                                 <% 
  251.                                 Dim lConPlayerPercent
  252.                                 if( -1 = limStreamingPlayers ) then
  253.                                     Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  254.                                 else
  255.                                     if( 0 = limStreamingPlayers ) then
  256.                                     else
  257.                                         lConPlayerPercent = 0
  258.                                         lConPlayerPercent = CSng( g_objServer.CurrentCounters.ConnectedPlayers ) / CSng( limStreamingPlayers )
  259.                                         lConPlayerPercent = CInt( 100 * lConPlayerPercent )
  260.                                         Response.Write( LabelValue( lConPlayerPercent, L_PERCENT_TEXT ) )
  261.                                     end if
  262.                                 end if
  263.                                 %> 
  264.                                 </span>
  265.                             </td>
  266.                         </tr>
  267.                         <tr>
  268.                             <td height="4">
  269.                             </td>
  270.                             <td height="4">
  271.                             </td>
  272.                         </tr>
  273.                         <tr>
  274.                             <td align="left" nowrap>
  275.                                 <span class="smcounter">
  276.                                     <%= Server.HTMLEncode( L_PEAK_TEXT ) %>
  277.                                 </span>
  278.                             </td>
  279.                             <td nowrap align="right" width="100%">
  280.                                 <span nowrap class="smcounter">
  281.                                     <%= LabelValue( g_objServer.PeakCounters.ConnectedPlayers, L_PLAYERSLABEL_TEXT ) %> 
  282.                                 </span>
  283.                             </td>
  284.                         </tr>
  285.                         <tr>
  286.                             <td height="4">
  287.                             </td>
  288.                             <td height="4">
  289.                             </td>
  290.                         </tr>
  291.                         <tr>
  292.                             <td align=left nowrap>
  293.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_PLAYERSCOLON_TEXT ) %></span>
  294.                             </td>
  295.                             <td align="right" width="100%">
  296.                                 <span nowrap class="smcounter">
  297.                                     <%= LabelValue( g_objServer.CurrentCounters.ConnectedPlayers, L_PLAYERSLABEL_TEXT ) %> 
  298.                                 </span>
  299.                             </td>
  300.                         </tr>
  301.                         <tr>
  302.                             <td height="4">
  303.                             </td>
  304.                             <td height="4">
  305.                             </td>
  306.                         </tr>
  307.                         </table>
  308.                       </td>
  309.                 </tr>
  310.                 </table>
  311.             </td>
  312.         </tr>
  313.         </table>
  314.       </td>
  315. </tr>
  316. <tr valign="bottom" height="24">
  317.     <td>
  318.          
  319.     </td>
  320.     <td>
  321.         <p> <br>
  322.         <img src="img\limits_16.gif" height="16" width="16" valign="middle">
  323.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_BANDWIDTH_TEXT ) %></span><%' ------------------------------ %>
  324.     </td>
  325. </tr>
  326. <tr valign=top>
  327.     <td>
  328.          
  329.     </td>
  330.     <td>
  331.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  332.         <tr>
  333.             <td>
  334.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  335.                 <tr>
  336.                     <td> </td>
  337.                     <td>
  338.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  339.                         <tr>
  340.                             <td align="left" nowrap>
  341.                                 <span class="smcounter"><%= Server.HTMLEncode( L_CURLIMIT_TEXT ) %></span>
  342.                             </td>
  343.                             <td nowrap align="right" width="100%">
  344.                                 <span nowrap class="smcounter">
  345.                                 <%
  346.                                 limPlayerBandwidth = g_objServer.Limits.PlayerBandwidth
  347.                                 if( limPlayerBandwidth < 0 ) then
  348.                                   Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  349.                                 else
  350.                                   Response.Write( LabelValue( limPlayerBandwidth, L_KBITSPERSECLABEL_TEXT ) )
  351.                                 end if
  352.                                 %> 
  353.                                 </span>
  354.                             </td>
  355.                         </tr>
  356.                         <tr>
  357.                             <td height="4">
  358.                             </td>
  359.                             <td height="4">
  360.                             </td>
  361.                         </tr>
  362.                         <tr>
  363.                             <td align="left" nowrap>
  364.                                 <span class="smcounter"><%= Server.HTMLEncode( L_PERCENTLIM_TEXT ) %></span>
  365.                             </td>
  366.                             <td align="right" width="100%">
  367.                                 <span nowrap class="smcounter">
  368.                                 <% 
  369.                                 Dim lBWPercent
  370.                                 if( -1 = limPlayerBandwidth ) then
  371.                                     Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  372.                                 else
  373.                                     if( 0 = limPlayerBandwidth ) then
  374.                                     else
  375.                                         lBWPercent = 0
  376.                                         lBWPercent = g_objServer.CurrentCounters.PlayerAllocatedBandwidth / limPlayerBandwidth
  377.                                         lBWPercent = CInt( 100 * lBWPercent )
  378.                                         Response.Write( LabelValue( lBWPercent, L_PERCENT_TEXT ) )
  379.                                     end if
  380.                                 end if
  381.                                 %> 
  382.                                 </span>
  383.                             </td>
  384.                         </tr>
  385.                         <tr>
  386.                             <td height="4">
  387.                             </td>
  388.                             <td height="4">
  389.                             </td>
  390.                         </tr>
  391.                         <tr>
  392.                             <td align="left" nowrap>
  393.                                 <span class="smcounter">
  394.                                     <%= Server.HTMLEncode( L_PEAK_TEXT ) %>
  395.                                 </span>
  396.                             </td>
  397.                             <td align="right" width="100%">
  398.                                 <span nowrap class="smcounter">
  399.                                     <%= LabelValue( g_objServer.PeakCounters.PlayerAllocatedBandwidth, L_KBITSPERSECLABEL_TEXT ) %> 
  400.                                 </span>
  401.                             </td>
  402.                         </tr>
  403.                         <tr>
  404.                             <td height="4">
  405.                             </td>
  406.                             <td height="4">
  407.                             </td>
  408.                         </tr>
  409.                         <tr>
  410.                             <td align="left" nowrap>
  411.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_BANDWIDTHALLOCATION_TEXT ) %></span>
  412.                             </td>
  413.                             <td nowrap align="right" width="100%">
  414.                                 <span nowrap class="smcounter">
  415.                                     <%= LabelValue( g_objServer.CurrentCounters.PlayerAllocatedBandwidth, L_KBITSPERSECLABEL_TEXT ) %> 
  416.                                 </span>
  417.                             </td>
  418.                         </tr>
  419.                         <tr>
  420.                             <td height="4">
  421.                             </td>
  422.                             <td height="4">
  423.                             </td>
  424.                         </tr>
  425.                         </table>
  426.                     </td>
  427.                 </tr>
  428.                 </table>
  429.             </td>
  430.         </tr>        
  431.         </table>
  432.     </td>
  433. </tr>
  434. <tr valign="bottom" height="24">
  435.     <td>
  436.          
  437.     </td>
  438.     <td>
  439.         <p> <br>
  440.         <img src="img\inter_advert_16.gif" height="16" width="16" valign="middle">
  441.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_ADVERTISING_TEXT ) %></span><%' ------------------------------ %>
  442.     </td>
  443. </tr>
  444. <tr valign=top>
  445.     <td>
  446.          
  447.     </td>
  448.     <td>
  449.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  450.         <tr>
  451.             <td>
  452.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  453.                 <tr>
  454.                     <td> </td>
  455.                     <td>
  456.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  457.                         <tr>
  458.                             <td align="left" nowrap>
  459.                                 <span class="smcounter"><%= Server.HTMLEncode( L_TOTSERVEDADS_TEXT ) %></span>
  460.                             </td>
  461.                             <td nowrap align="right" width="100%">
  462.                                 <span nowrap class="smcounter">
  463.                                     <%= LabelValue( g_objServer.TotalCounters.Advertisements, L_IMPRESSIONSLABEL_TEXT ) %> 
  464.                                 </span>
  465.                             </td>
  466.                         </tr>
  467.                         <tr>
  468.                             <td height="4">
  469.                             </td>
  470.                             <td height="4">
  471.                             </td>
  472.                         </tr>
  473.                         </table>
  474.                     </td>
  475.                 </tr>
  476.                 </table>
  477.             </td>
  478.         </tr>        
  479.         </table>
  480.     </td>
  481. </tr>
  482. <tr valign="bottom" height=24>
  483.     <td>
  484.          
  485.     </td>
  486.     <td>
  487.         <p> 
  488.     </td>
  489. </tr>
  490. <tr valign=top>
  491.     <td>
  492.          
  493.     </td>
  494.     <td>
  495.         <table cellspacing="0" cellpadding="0" border="0">
  496.         <tr>
  497.             <td>
  498.         <%
  499.             ToolbarButtonText ( 0 ) = L_BUTTONSERVERSTOP_TEXT
  500.             ToolbarButtonImage( 0 ) = IMAGE_STOP
  501.             ToolbarButtonLink ( 0 ) = "javascript:ValidateStop()"
  502.             ToolbarButtonAltText( 0 ) = L_STOPSERVER_TEXT
  503.  
  504.             ToolbarButtonText ( 1 ) = L_BUTTONALLOWNEWCONNECTIONS_TEXT
  505.             if bAllowingConnections then
  506.                 ToolbarButtonImage( 1 ) = IMAGE_ALLOWCONNECTIONSG
  507.                 ToolbarButtonLink ( 1 ) = ""
  508.             else
  509.                 ToolbarButtonImage( 1 ) = IMAGE_ALLOWCONNECTIONS
  510.                 ToolbarButtonLink ( 1 ) = "server_status.asp?server=" & g_strQueryStringServer & "&op=Allow"
  511.             end if
  512.             ToolbarButtonAltText( 1 ) = L_ALLOWUCONNECTIONS_TEXT
  513.             
  514.             ToolbarButtonText ( 2 ) = L_BUTTONDENYNEWCONNECTIONS_TEXT
  515.             if bAllowingConnections then
  516.                 ToolbarButtonImage( 2 ) = IMAGE_DENYCONNECTIONS
  517.                 ToolbarButtonLink ( 2 ) = "server_status.asp?server=" & g_strQueryStringServer & "&op=Deny"
  518.             else
  519.                 ToolbarButtonImage( 2 ) = IMAGE_DENYCONNECTIONSG
  520.                 ToolbarButtonLink ( 2 ) = ""
  521.             end if
  522.             ToolbarButtonAltText( 2 ) = L_DENYUCONNECTIONS_TEXT
  523.             
  524.             ToolbarButtonText ( 3 ) = L_BUTTONRESETPEAKS_TEXT
  525.             ToolbarButtonImage( 3 ) = IMAGE_RESETPEAKS
  526.             ToolbarButtonLink ( 3 ) = "server_status.asp?server=" & g_strQueryStringServer & "&op=resetctrs"
  527.             ToolbarButtonAltText( 3 ) = L_RESETPEAKS_TEXT
  528.             dwLastToolbarIndex = 3
  529.  
  530. if( Session( "ShowServerList" ) ) then
  531.             dwLastToolbarIndex = dwLastToolbarIndex + 1
  532.             ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  533.             ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_SERVERLIST
  534.             ToolbarButtonLink ( dwLastToolbarIndex ) = SERVERSLIST_PATH
  535.             ToolbarButtonAltText( dwLastToolbarIndex ) = L_RETURNTOSL_TEXT
  536. end if
  537.  
  538.             dwLastToolbarIndex = dwLastToolbarIndex + 1
  539.             ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONHELP_TEXT
  540.             ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_HELP
  541.             ToolbarButtonLink ( dwLastToolbarIndex ) = HELPTOKEN
  542.             ToolbarButtonAltText( dwLastToolbarIndex ) = L_HELPALT_TEXT
  543.             ToolbarHelpURL = H_SERVERSTATUSHELPTOPIC
  544.             ToolbarNesting = H_SERVERLEVEL
  545.  
  546.             DrawToolbar FALSE, ( dwLastToolbarIndex + 1 )
  547.             %>
  548.             </td>
  549.         </tr>
  550.         </table>
  551.     </td>
  552. </tr>
  553. </table>
  554. <%
  555.     DrawRefreshControl FALSE
  556.     DrawCopyrightInfo
  557.     DrawStdFooter
  558. %>
  559. </body>
  560. </html>
  561. <% 
  562. LatchCurrentPage "server_status.asp", qs
  563. EndErrorHandling( "server_status.asp" ) 
  564.  
  565. on error resume next
  566. WMSServerHashASPCleanup
  567. WMSConnectASPCleanup
  568. %>
  569.